home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Focus for Success
/
Focus for Success.iso
/
pc
/
game2.dxr
/
00092_Field_button 7 = 17.txt
< prev
next >
Wrap
Text File
|
1995-02-28
|
1KB
|
49 lines
on mouseUp
PUT THE TICKS INTO LINE 2 OF CARD FLD TIME
PUT THE SHORT NAME OF ME INTO X3
IF X3=CARD FLD ANSWER1 THEN
PUT LINE 1 OF CARD FLD TIME INTO A
PUT LINE 2 OF CARD FLD TIME INTO B
PUT(B-A) INTO T1
PUT LINE 1 OF CARD FLD COUNT INTO X
PUT CARD FLD SECONDS INTO Y
IF Y-X<0 THEN
SHOW CARD FLD "GAME OVER"
WAIT 2 SECONDS
HIDE CARD FLD "GAME OVER"
CLICK AT LOC OF CARD BUTTON SCORE
EXIT MOUSEUP
END IF
PUT 60*(Y-X) INTO T2
IF T1<T2 THEN
PUT THE NUMBER OF LINES IN CARD FLD SUBJECT2 INTO CT
ADD 1 TO LINE 1 OF CARD FLD COUNT4
PUT T1 INTO LINE CT+1 OF CARD FLD SUBJECT2
PUT 0 INTO LINE 2 OF CARD FLD COUNT5
SHOW CARD FLD "CORRECT"
PLAY BOING
WAIT 30
HIDE CARD FLD CORRECT
END IF
IF T1>T2 THEN
SHOW CARD FLD SORRY
WAIT 3 SECONDS
HIDE CARD FLD SORRY
END IF
END IF
IF X3<>CARD FLD ANSWER1 THEN
SHOW CARD FLD "WRONG"
REPEAT WITH I=1 TO 5
HIDE CARD BUTTON I
END REPEAT
HIDE CARD FLD "WRONG"
ADD 1 TO LINE 1 OF CARD FLD COUNT5
END IF
CLICK AT LOC OF CARD BUTTON START
end mouseUp